How to do it?:

Submission: Submit the link on Github of the assignment to Canvas

# Install the necessary libraries for use:

library(gganimate)
library(ggplot2)
library(tidyverse)
library(lubridate)

  1. Use the dataset by of covid 19 by WHO at https://covid19.who.int/WHO-COVID-19-global-data.csv. Find the three countries with the most numbers of deaths by Covid-19.
# Read the dataset into a dataframe:
covid_data <- read_csv("https://covid19.who.int/WHO-COVID-19-global-data.csv")

# Observe the variables of the dataframe:

spec(covid_data)
## cols(
##   Date_reported = col_date(format = ""),
##   Country_code = col_character(),
##   Country = col_character(),
##   WHO_region = col_character(),
##   New_cases = col_double(),
##   Cumulative_cases = col_double(),
##   New_deaths = col_double(),
##   Cumulative_deaths = col_double()
## )
# look at examples of the data:


covid_data
## # A tibble: 165,900 x 8
##    Date_reported Country_code Country     WHO_region New_cases Cumulative_cases
##    <date>        <chr>        <chr>       <chr>          <dbl>            <dbl>
##  1 2020-01-03    AF           Afghanistan EMRO               0                0
##  2 2020-01-04    AF           Afghanistan EMRO               0                0
##  3 2020-01-05    AF           Afghanistan EMRO               0                0
##  4 2020-01-06    AF           Afghanistan EMRO               0                0
##  5 2020-01-07    AF           Afghanistan EMRO               0                0
##  6 2020-01-08    AF           Afghanistan EMRO               0                0
##  7 2020-01-09    AF           Afghanistan EMRO               0                0
##  8 2020-01-10    AF           Afghanistan EMRO               0                0
##  9 2020-01-11    AF           Afghanistan EMRO               0                0
## 10 2020-01-12    AF           Afghanistan EMRO               0                0
## # ... with 165,890 more rows, and 2 more variables: New_deaths <dbl>,
## #   Cumulative_deaths <dbl>

Find the three countries with the most numbers of deaths by Covid-19.

covid_data %>% 
  filter(Date_reported == '2021-10-31') %>%
  arrange(-Cumulative_deaths)
## # A tibble: 237 x 8
##    Date_reported Country_code Country      WHO_region New_cases Cumulative_cases
##    <date>        <chr>        <chr>        <chr>          <dbl>            <dbl>
##  1 2021-10-31    US           United Stat~ AMRO           87003         45638842
##  2 2021-10-31    BR           Brazil       AMRO           11965         21793401
##  3 2021-10-31    IN           India        SEARO          12830         34273300
##  4 2021-10-31    MX           Mexico       AMRO            3146          3818853
##  5 2021-10-31    RU           Russian Fed~ EURO           40993          8513790
##  6 2021-10-31    PE           Peru         AMRO             840          2199876
##  7 2021-10-31    ID           Indonesia    SEARO            523          4244358
##  8 2021-10-31    GB           The United ~ EURO           40726          9019966
##  9 2021-10-31    IT           Italy        EURO            4878          4768177
## 10 2021-10-31    CO           Colombia     AMRO            1604          4999048
## # ... with 227 more rows, and 2 more variables: New_deaths <dbl>,
## #   Cumulative_deaths <dbl>
# According to the data the United States had the most number of cumulative
# deaths followed by Brazil and India.

Hint:

# Use 10/31/2021

covid_data %>% 
  filter(Date_reported == '2021-10-31') # I am going to use halloween for this graph as it is better than 11/01/2021
## # A tibble: 237 x 8
##    Date_reported Country_code Country             WHO_region New_cases Cumulative_cases
##    <date>        <chr>        <chr>               <chr>          <dbl>            <dbl>
##  1 2021-10-31    AF           Afghanistan         EMRO              14           156088
##  2 2021-10-31    AL           Albania             EURO             547           184887
##  3 2021-10-31    DZ           Algeria             AFRO              88           206358
##  4 2021-10-31    AS           American Samoa      WPRO               0                4
##  5 2021-10-31    AD           Andorra             EURO               0            15516
##  6 2021-10-31    AO           Angola              AFRO              73            64374
##  7 2021-10-31    AI           Anguilla            AMRO               0              892
##  8 2021-10-31    AG           Antigua and Barbuda AMRO               0             4040
##  9 2021-10-31    AR           Argentina           AMRO            2185          5288259
## 10 2021-10-31    AM           Armenia             EURO            1587           308326
## # ... with 227 more rows, and 2 more variables: New_deaths <dbl>,
## #   Cumulative_deaths <dbl>
# The resulting output are the countries that had the most number of cumulative deaths
# on the 31st of October 2021.

covid_data %>% 
  filter(Date_reported == '2021-10-31') %>% # <--- This is what the professor means by pipe function
  arrange(-Cumulative_deaths)
## # A tibble: 237 x 8
##    Date_reported Country_code Country      WHO_region New_cases Cumulative_cases
##    <date>        <chr>        <chr>        <chr>          <dbl>            <dbl>
##  1 2021-10-31    US           United Stat~ AMRO           87003         45638842
##  2 2021-10-31    BR           Brazil       AMRO           11965         21793401
##  3 2021-10-31    IN           India        SEARO          12830         34273300
##  4 2021-10-31    MX           Mexico       AMRO            3146          3818853
##  5 2021-10-31    RU           Russian Fed~ EURO           40993          8513790
##  6 2021-10-31    PE           Peru         AMRO             840          2199876
##  7 2021-10-31    ID           Indonesia    SEARO            523          4244358
##  8 2021-10-31    GB           The United ~ EURO           40726          9019966
##  9 2021-10-31    IT           Italy        EURO            4878          4768177
## 10 2021-10-31    CO           Colombia     AMRO            1604          4999048
## # ... with 227 more rows, and 2 more variables: New_deaths <dbl>,
## #   Cumulative_deaths <dbl>
  1. Make a plot revealing the number of deaths in the three countries with the most numbers of deaths
covid_data %>% 
  filter(Country %in% c('United States of America','Brazil','India')) %>% 
  ggplot(aes(y=Cumulative_deaths,
            x=Date_reported,
            color=Country))+ 
  geom_line()+
  geom_point(size=3)+
  geom_text(aes(label = Cumulative_deaths), 
            hjust = -.1, size=5) +
  labs(title = 'Top 3 countries ranked by death counts', color='Country')+
  transition_reveal(Date_reported)

  1. Create the new variable (column) death_per_cases recording the number of deaths per cases (Hint: divide cumulative deaths by cumulative cases). What are the three countries with the highest deaths per cases?
covid_data$death_per_cases <- (covid_data$Cumulative_deaths/covid_data$Cumulative_cases)


covid_data %>% 
  arrange(-death_per_cases) %>% select(death_per_cases, Country)
## # A tibble: 165,900 x 2
##    death_per_cases Country    
##              <dbl> <chr>      
##  1             Inf Peru       
##  2               1 Philippines
##  3               1 San Marino 
##  4               1 San Marino 
##  5               1 San Marino 
##  6               1 Sudan      
##  7               1 Sudan      
##  8               1 Sudan      
##  9               1 Sudan      
## 10               1 Sudan      
## # ... with 165,890 more rows
  1. Make a plot revealing the number of deaths per cases of the US, Italy and Mexico.
covid_data %>% 
  filter(Country %in% c('United States of America','Italy','Mexico')) %>% 
  ggplot(aes(y=death_per_cases,
            x=Date_reported,
            color=Country))+ 
  geom_line()+
  geom_point(size=3)+
  geom_text(aes(label = death_per_cases), 
            hjust = -.1, size=5) +
  labs(title = 'Top 3 countries ranked by death counts', color='Country')+
  transition_reveal(Date_reported)
## Warning: Removed 15 row(s) containing missing values (geom_path).
## Warning: Removed 3 rows containing missing values (geom_point).
## Warning: Removed 3 rows containing missing values (geom_text).
## Warning: Removed 15 row(s) containing missing values (geom_path).
## Warning: Removed 3 rows containing missing values (geom_point).
## Warning: Removed 3 rows containing missing values (geom_text).
## Warning: Removed 36 row(s) containing missing values (geom_path).
## Warning: Removed 3 rows containing missing values (geom_point).
## Warning: Removed 3 rows containing missing values (geom_text).
## Warning: Removed 55 row(s) containing missing values (geom_path).
## Warning: Removed 2 rows containing missing values (geom_point).
## Warning: Removed 2 rows containing missing values (geom_text).
## Warning: Removed 69 row(s) containing missing values (geom_path).
## Warning: Removed 2 rows containing missing values (geom_point).
## Warning: Removed 2 rows containing missing values (geom_text).
## Warning: Removed 76 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 83 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 90 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

## Warning: Removed 92 row(s) containing missing values (geom_path).

# Check with professor to make sure this is right 
  1. Use transition_reveal to create three animated graph with the vaccination data at

https://raw.githubusercontent.com/govex/COVID-19/master/data_tables/vaccine_data/us_data/time_series/vaccine_data_us_timeline.csv

new_covid <- read_csv("https://raw.githubusercontent.com/govex/COVID-19/master/data_tables/vaccine_data/us_data/time_series/vaccine_data_us_timeline.csv")

# Take a general look at the data:

new_covid
## # A tibble: 118,078 x 13
##    Province_State Date       Vaccine_Type  FIPS Country_Region   Lat Long_
##    <chr>          <date>     <chr>        <dbl> <chr>          <dbl> <dbl>
##  1 Alabama        2020-12-10 All              1 US              32.3 -86.9
##  2 Alabama        2020-12-10 Moderna          1 US              32.3 -86.9
##  3 Alabama        2020-12-10 Pfizer           1 US              32.3 -86.9
##  4 Alabama        2020-12-11 All              1 US              32.3 -86.9
##  5 Alabama        2020-12-11 Moderna          1 US              32.3 -86.9
##  6 Alabama        2020-12-11 Pfizer           1 US              32.3 -86.9
##  7 Alabama        2020-12-12 All              1 US              32.3 -86.9
##  8 Alabama        2020-12-12 Moderna          1 US              32.3 -86.9
##  9 Alabama        2020-12-12 Pfizer           1 US              32.3 -86.9
## 10 Alabama        2020-12-13 All              1 US              32.3 -86.9
## # ... with 118,068 more rows, and 6 more variables: Doses_alloc <dbl>,
## #   Doses_shipped <dbl>, Doses_admin <dbl>, Stage_One_Doses <dbl>,
## #   Stage_Two_Doses <dbl>, Combined_Key <chr>

Graph 1:

new_covid %>% 
  filter(Province_State %in% c('Alabama','Rhode Island','Louisiana')) %>% 
  ggplot(aes(y=Doses_admin, 
            x=Date,  
            color=Province_State))+
  geom_line()+
  geom_point(size=3)+
  geom_text(aes(label = Province_State),
            hjust = -.1, size=5) +
  labs(title = 'Vaccines', x='Date', y='Vaccines administered')+
  transition_reveal(Date)
## Warning: Removed 22 row(s) containing missing values (geom_path).
## Warning: Removed 3 rows containing missing values (geom_point).
## Warning: Removed 3 rows containing missing values (geom_text).
## Warning: Removed 22 row(s) containing missing values (geom_path).
## Warning: Removed 3 rows containing missing values (geom_point).
## Warning: Removed 3 rows containing missing values (geom_text).
## Warning: Removed 66 row(s) containing missing values (geom_path).
## Warning: Removed 3 rows containing missing values (geom_point).
## Warning: Removed 3 rows containing missing values (geom_text).
## Warning: Removed 92 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

## Warning: Removed 103 row(s) containing missing values (geom_path).

Graph 2:

new_covid %>% 
  ggplot(aes(y=Doses_admin, 
            x=Date))+ 
  geom_line()+
  geom_point(size=3)+
  geom_text(aes(label = Doses_admin), 
            hjust = -.1, size=5) +
  labs(title = 'Vaccines ', x='Date', y='Vaccines administered')+
  transition_reveal(Date) 
## Warning: Removed 400 row(s) containing missing values (geom_path).
## Warning: Removed 127 rows containing missing values (geom_point).
## Warning: Removed 127 rows containing missing values (geom_text).
## Warning: Removed 400 row(s) containing missing values (geom_path).
## Warning: Removed 127 rows containing missing values (geom_point).
## Warning: Removed 127 rows containing missing values (geom_text).
## Warning: Removed 981 row(s) containing missing values (geom_path).
## Warning: Removed 120 rows containing missing values (geom_point).
## Warning: Removed 120 rows containing missing values (geom_text).
## Warning: Removed 977 row(s) containing missing values (geom_path).
## Warning: Removed 102 rows containing missing values (geom_point).
## Warning: Removed 102 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 89 rows containing missing values (geom_point).
## Warning: Removed 89 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 86 rows containing missing values (geom_point).
## Warning: Removed 86 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 85 rows containing missing values (geom_point).
## Warning: Removed 85 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 83 rows containing missing values (geom_point).
## Warning: Removed 83 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 80 rows containing missing values (geom_point).
## Warning: Removed 80 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 79 rows containing missing values (geom_point).
## Warning: Removed 79 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 77 rows containing missing values (geom_point).
## Warning: Removed 77 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 76 rows containing missing values (geom_point).
## Warning: Removed 76 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 63 rows containing missing values (geom_point).
## Warning: Removed 63 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 65 rows containing missing values (geom_point).
## Warning: Removed 65 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 59 rows containing missing values (geom_point).
## Warning: Removed 59 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 59 rows containing missing values (geom_point).
## Warning: Removed 59 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 59 rows containing missing values (geom_point).
## Warning: Removed 59 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 59 rows containing missing values (geom_point).
## Warning: Removed 59 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 59 rows containing missing values (geom_point).
## Warning: Removed 59 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 59 rows containing missing values (geom_point).
## Warning: Removed 59 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 59 rows containing missing values (geom_point).
## Warning: Removed 59 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 59 rows containing missing values (geom_point).
## Warning: Removed 59 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 65 rows containing missing values (geom_point).
## Warning: Removed 65 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 65 rows containing missing values (geom_point).
## Warning: Removed 65 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 65 rows containing missing values (geom_point).
## Warning: Removed 65 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 65 rows containing missing values (geom_point).
## Warning: Removed 65 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 65 rows containing missing values (geom_point).
## Warning: Removed 65 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 67 rows containing missing values (geom_point).
## Warning: Removed 67 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 66 rows containing missing values (geom_point).
## Warning: Removed 66 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 66 rows containing missing values (geom_point).
## Warning: Removed 66 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 67 rows containing missing values (geom_point).
## Warning: Removed 67 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 67 rows containing missing values (geom_point).
## Warning: Removed 67 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 67 rows containing missing values (geom_point).
## Warning: Removed 67 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 67 rows containing missing values (geom_point).
## Warning: Removed 67 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 68 rows containing missing values (geom_point).
## Warning: Removed 68 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).
## Warning: Removed 67 rows containing missing values (geom_point).
## Warning: Removed 67 rows containing missing values (geom_text).
## Warning: Removed 968 row(s) containing missing values (geom_path).

Graph 3:

# Observe the number of vaccines distributed in Nevada, California, and Utah

new_covid %>% 
  filter(Province_State %in% c('Nevada','California','Utah')) %>% 
  ggplot(aes(y=Doses_admin,
            x=Date, 
            color=Province_State))+
  geom_line()+
  geom_point(size=3)+
  geom_text(aes(label = Province_State),
            hjust = -.1, size=5) +
  labs(title = 'Vaccines', x='Date', y='Vaccines administered')+
  transition_reveal(Date)
## Warning: Removed 22 row(s) containing missing values (geom_path).
## Warning: Removed 3 rows containing missing values (geom_point).
## Warning: Removed 3 rows containing missing values (geom_text).
## Warning: Removed 22 row(s) containing missing values (geom_path).
## Warning: Removed 3 rows containing missing values (geom_point).
## Warning: Removed 3 rows containing missing values (geom_text).
## Warning: Removed 64 row(s) containing missing values (geom_path).
## Warning: Removed 3 rows containing missing values (geom_point).
## Warning: Removed 3 rows containing missing values (geom_text).
## Warning: Removed 88 row(s) containing missing values (geom_path).
## Warning: Removed 2 rows containing missing values (geom_point).
## Warning: Removed 2 rows containing missing values (geom_text).
## Warning: Removed 116 row(s) containing missing values (geom_path).
## Warning: Removed 2 rows containing missing values (geom_point).
## Warning: Removed 2 rows containing missing values (geom_text).
## Warning: Removed 144 row(s) containing missing values (geom_path).
## Warning: Removed 2 rows containing missing values (geom_point).
## Warning: Removed 2 rows containing missing values (geom_text).
## Warning: Removed 165 row(s) containing missing values (geom_path).
## Warning: Removed 2 rows containing missing values (geom_point).
## Warning: Removed 2 rows containing missing values (geom_text).
## Warning: Removed 193 row(s) containing missing values (geom_path).
## Warning: Removed 2 rows containing missing values (geom_point).
## Warning: Removed 2 rows containing missing values (geom_text).
## Warning: Removed 204 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 220 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 236 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 248 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).

## Warning: Removed 259 row(s) containing missing values (geom_path).
## Warning: Removed 261 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 261 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 261 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 261 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 261 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 261 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 261 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 261 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 261 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).
## Warning: Removed 260 row(s) containing missing values (geom_path).
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_text).